From 31504381d3caa40214366954294be79562599010 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Thu, 25 Jul 2019 00:08:39 +0100 Subject: [PATCH] list_order.4 Gbp-Pq: Name list_order.4 --- lsp/gcl_directory.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp index 30c0534b..9da15b42 100644 --- a/lsp/gcl_directory.lsp +++ b/lsp/gcl_directory.lsp @@ -62,7 +62,7 @@ (when (pathname-match-p dir v) (push (merge-pathnames (parse-namestring dir nil *default-pathname-defaults* :start pos) pexp nil) r))) :file) - (when (pathname-match-p dir v) (push pexp r)))) + (when (pathname-match-p dir v) (push (pathname (copy-seq (namestring pexp))) r)))) (make-frame "")) r) -- 2.30.2